home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 September / CHIP Eylül 1998.iso / demolar / lokman / DISK1 / _SETUP.2 / Group1 / Tarihdll.dll / 0 / RCDATA / TCARIFORM / TCARIFORM.txt
Encoding:
Text File  |  1998-07-24  |  42.1 KB  |  1,635 lines
  1. object CariForm: TCariForm
  2.   Left = 1
  3.   Top = 5
  4.   ActiveControl = DBGridCAR
  5.   AutoScroll = False
  6.   Caption = 'Cari Hareket Kart∩┐╜'
  7.   ClientHeight = 413
  8.   ClientWidth = 635
  9.   Font.Color = clBlack
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   KeyPreview = True
  14.   Position = poScreenCenter
  15.   OnClose = FormClose
  16.   OnKeyDown = FormKeyDown
  17.   OnKeyPress = FormKeyPress
  18.   OnShow = FormShow
  19.   PixelsPerInch = 96
  20.   TextHeight = 13
  21.   object PanelGr: TPanel
  22.     Left = 0
  23.     Top = 33
  24.     Width = 633
  25.     Height = 381
  26.     HelpContext = 305
  27.     BevelInner = bvLowered
  28.     BevelWidth = 2
  29.     BorderWidth = 1
  30.     Color = clTeal
  31.     Font.Color = clBlack
  32.     Font.Height = -11
  33.     Font.Name = 'Arial'
  34.     Font.Style = [fsBold]
  35.     ParentFont = False
  36.     TabOrder = 0
  37.     object Label3: TLabel
  38.       Left = 10
  39.       Top = 274
  40.       Width = 84
  41.       Height = 14
  42.       Caption = 'Toplam Alacak'
  43.       Color = clNavy
  44.       Font.Color = clWhite
  45.       Font.Height = -12
  46.       Font.Name = 'Arial'
  47.       Font.Style = [fsBold]
  48.       ParentColor = False
  49.       ParentFont = False
  50.       Transparent = True
  51.     end
  52.     object Label4: TLabel
  53.       Left = 217
  54.       Top = 274
  55.       Width = 75
  56.       Height = 15
  57.       Caption = 'Toplam Bor∩┐╜ '
  58.       Color = clGray
  59.       Font.Color = clYellow
  60.       Font.Height = -12
  61.       Font.Name = 'Arial'
  62.       Font.Style = [fsBold]
  63.       ParentColor = False
  64.       ParentFont = False
  65.       Transparent = True
  66.     end
  67.     object Label5: TLabel
  68.       Left = 425
  69.       Top = 274
  70.       Width = 32
  71.       Height = 15
  72.       Caption = 'Kalan'
  73.       Color = clPurple
  74.       Font.Color = clLime
  75.       Font.Height = -12
  76.       Font.Name = 'Arial'
  77.       Font.Style = [fsBold]
  78.       ParentColor = False
  79.       ParentFont = False
  80.       Transparent = True
  81.     end
  82.     object LabelU: TLabel
  83.       Left = 491
  84.       Top = 275
  85.       Width = 39
  86.       Height = 14
  87.       Caption = 'LabelU'
  88.       Color = clPurple
  89.       Font.Color = clWhite
  90.       Font.Height = -12
  91.       Font.Name = 'Arial'
  92.       Font.Style = [fsBold]
  93.       ParentColor = False
  94.       ParentFont = False
  95.       Transparent = True
  96.     end
  97.     object Label2: TLabel
  98.       Left = 96
  99.       Top = 64
  100.       Width = 36
  101.       Height = 12
  102.       Caption = 'Label2'
  103.     end
  104.     object Label6: TLabel
  105.       Left = 272
  106.       Top = 143
  107.       Width = 36
  108.       Height = 12
  109.       Caption = 'Label6'
  110.     end
  111.     object DBGridCAR: TDBGrid
  112.       Left = 5
  113.       Top = 5
  114.       Width = 623
  115.       Height = 268
  116.       Align = alTop
  117.       Color = clSilver
  118.       DataSource = CariHrkSRC
  119.       FixedColor = clTeal
  120.       Font.Color = clNavy
  121.       Font.Height = -11
  122.       Font.Name = 'Arial Tur'
  123.       Font.Style = [fsBold]
  124.       Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
  125.       ParentFont = False
  126.       TabOrder = 1
  127.       TitleFont.Color = clWhite
  128.       TitleFont.Height = -11
  129.       TitleFont.Name = 'Arial'
  130.       TitleFont.Style = [fsBold]
  131.       OnDblClick = DBGridCARDblClick
  132.       OnKeyPress = DBGridCARKeyPress
  133.     end
  134.     object BitBtnGERI: TBitBtn
  135.       Left = 7
  136.       Top = 344
  137.       Width = 79
  138.       Height = 27
  139.       Hint = 'Alt-F4'
  140.       Caption = 'Geri D∩┐╜n'
  141.       Font.Color = clMaroon
  142.       Font.Height = -11
  143.       Font.Name = 'Arial'
  144.       Font.Style = [fsBold]
  145.       ParentFont = False
  146.       ParentShowHint = False
  147.       ShowHint = True
  148.       TabOrder = 10
  149.       OnClick = BitBtnGERIClick
  150.       Glyph.Data = {
  151.         78010000424D7801000000000000760000002800000020000000100000000100
  152.         04000000000000000000120B0000120B00000000000000000000000000000000
  153.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  154.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  155.         33333333333333333333333333333333333333333333333333FF333333333333
  156.         3000333333FFFFF3F77733333000003000B033333777773777F733330BFBFB00
  157.         E00033337FFF3377F7773333000FBFB0E000333377733337F7773330FBFBFBF0
  158.         E00033F7FFFF3337F7773000000FBFB0E000377777733337F7770BFBFBFBFBF0
  159.         E00073FFFFFFFF37F777300000000FB0E000377777777337F7773333330BFB00
  160.         000033333373FF77777733333330003333333333333777333333333333333333
  161.         3333333333333333333333333333333333333333333333333333333333333333
  162.         33333333333333333333333333333333333333333333333333330000}
  163.       NumGlyphs = 2
  164.     end
  165.     object BtnDUZEL: TBitBtn
  166.       Left = 91
  167.       Top = 312
  168.       Width = 79
  169.       Height = 27
  170.       Hint = 'F6 Tu∩┐╜u'
  171.       Caption = 'D∩┐╜zelt'
  172.       Font.Color = clNavy
  173.       Font.Height = -11
  174.       Font.Name = 'Arial'
  175.       Font.Style = [fsBold]
  176.       ParentFont = False
  177.       ParentShowHint = False
  178.       ShowHint = True
  179.       TabOrder = 3
  180.       OnClick = BtnDUZELClick
  181.       Glyph.Data = {
  182.         78010000424D7801000000000000760000002800000020000000100000000100
  183.         04000000000000000000120B0000120B00000000000000000000000000000000
  184.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  185.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
  186.         000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
  187.         00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
  188.         F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
  189.         0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
  190.         FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
  191.         FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
  192.         0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
  193.         00333377737FFFFF7733333033000000033333373377777773330000}
  194.       NumGlyphs = 2
  195.     end
  196.     object BtnICERIK: TBitBtn
  197.       Left = 173
  198.       Top = 312
  199.       Width = 79
  200.       Height = 27
  201.       Caption = '∩┐╜∩┐╜eri&k'
  202.       Enabled = False
  203.       Font.Color = clNavy
  204.       Font.Height = -11
  205.       Font.Name = 'Arial'
  206.       Font.Style = [fsBold]
  207.       ParentFont = False
  208.       ParentShowHint = False
  209.       ShowHint = False
  210.       TabOrder = 4
  211.       OnClick = BtnICERIKClick
  212.       Glyph.Data = {
  213.         78010000424D7801000000000000760000002800000020000000100000000100
  214.         04000000000000000000120B0000120B00000000000000000000000000000000
  215.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  216.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  217.         333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
  218.         333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
  219.         C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
  220.         F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
  221.         F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
  222.         00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
  223.         3333333373FF7333333333333000333333333333377733333333333333333333
  224.         33333333333333333333333333333333333333333333333333330000}
  225.       NumGlyphs = 2
  226.     end
  227.     object BtnSIL: TBitBtn
  228.       Left = 567
  229.       Top = 312
  230.       Width = 57
  231.       Height = 27
  232.       Hint = 'Ctrl-Delete Tu∩┐╜u'
  233.       Caption = 'Sil'
  234.       Font.Color = clNavy
  235.       Font.Height = -11
  236.       Font.Name = 'Arial'
  237.       Font.Style = [fsBold]
  238.       ParentFont = False
  239.       ParentShowHint = False
  240.       ShowHint = True
  241.       TabOrder = 9
  242.       OnClick = BtnSILClick
  243.       Glyph.Data = {
  244.         78010000424D7801000000000000760000002800000020000000100000000100
  245.         04000000000000000000120B0000120B00000000000000000000000000000000
  246.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  247.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
  248.         55555FFFFFFF5F55FFF5777777757559995777777775755777F7555555555550
  249.         305555555555FF57F7F555555550055BB0555555555775F777F55555550FB000
  250.         005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
  251.         B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
  252.         B05555577F555557F7F5550E0BFBFB00B055557575F55577F7F550EEE0BFB0B0
  253.         B05557FF575F5757F7F5000EEE0BFBF0B055777FF575FFF7F7F50000EEE00000
  254.         B0557777FF577777F7F500000E055550805577777F7555575755500000555555
  255.         05555777775555557F55550005555555055555777555555575550000}
  256.       NumGlyphs = 2
  257.     end
  258.     object BtnSON: TBitBtn
  259.       Left = 422
  260.       Top = 312
  261.       Width = 79
  262.       Height = 27
  263.       Caption = '&Cari Hrk.'
  264.       Font.Color = clNavy
  265.       Font.Height = -11
  266.       Font.Name = 'Arial'
  267.       Font.Style = [fsBold]
  268.       ParentFont = False
  269.       ParentShowHint = False
  270.       ShowHint = False
  271.       TabOrder = 7
  272.       OnClick = BtnSONClick
  273.       Glyph.Data = {
  274.         10010000424D1001000000000000760000002800000010000000100000000100
  275.         0400000000008000000000000000000000000000000000000000000000000000
  276.         8000008000000080800080000000800080008080000080808000C0C0C0000000
  277.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00550000000005
  278.         5B55550202022020BBB55500202020020B5555020202002020555B0020202002
  279.         0205BB020202002020055B022020200202055500000000202005555022F22202
  280.         02055B55022F22202005BBB55022F22202055B5555022F222005555B555000B0
  281.         00B555BBB5B55BBB5BBBB55B5BBB55B555B5BB5555B555555555000000000000
  282.         0000000000000000000000000000000000000000}
  283.     end
  284.     object DBRadGrTUR: TDBRadioGroup
  285.       Left = 88
  286.       Top = 136
  287.       Width = 81
  288.       Height = 81
  289.       Caption = '∩┐╜deme Tipi'
  290.       Color = clAqua
  291.       DataField = 'TUR'
  292.       DataSource = CariHrkSRC
  293.       Font.Color = clNavy
  294.       Font.Height = -11
  295.       Font.Name = 'Arial'
  296.       Font.Style = [fsBold]
  297.       Items.Strings = (
  298.         '&Nakit'
  299.         '&∩┐╜ek'
  300.         '&Senet'
  301.         '&Di∩┐╜er')
  302.       ParentColor = False
  303.       ParentFont = False
  304.       TabOrder = 0
  305.       Values.Strings = (
  306.         'N'
  307.         '∩┐╜'
  308.         'S'
  309.         'D')
  310.       Visible = False
  311.       OnExit = DBRadGrTURExit
  312.     end
  313.     object BtnYENI: TBitBtn
  314.       Left = 7
  315.       Top = 312
  316.       Width = 79
  317.       Height = 27
  318.       Hint = 'Insert Tu∩┐╜u'
  319.       Caption = 'Yeni Cari'
  320.       Font.Color = clNavy
  321.       Font.Height = -11
  322.       Font.Name = 'Arial'
  323.       Font.Style = [fsBold]
  324.       ParentFont = False
  325.       ParentShowHint = False
  326.       ShowHint = True
  327.       TabOrder = 2
  328.       OnClick = BtnYENIClick
  329.       Glyph.Data = {
  330.         F8000000424DF800000000000000760000002800000010000000100000000100
  331.         04000000000000000000120B0000120B00000000000000000000000000000000
  332.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  333.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
  334.         5555000050000005555544F00BFBFBF0555544F0BFBF0000055544F0FBFBFBFB
  335.         F05544F0BFBF0000000544F0F000FBFBF00544F0B0B000000F000000F0F000FB
  336.         FB0F555500BFBFBFB0F455555500FBFB0F44555555550000F44455555555550F
  337.         44445555555555500444555555555555500455555555555555500000}
  338.     end
  339.     object BtnFONT: TBitBtn
  340.       Left = 339
  341.       Top = 312
  342.       Width = 79
  343.       Height = 27
  344.       Caption = '&Fontu'
  345.       Font.Color = clNavy
  346.       Font.Height = -11
  347.       Font.Name = 'Arial'
  348.       Font.Style = [fsBold]
  349.       ParentFont = False
  350.       ParentShowHint = False
  351.       ShowHint = False
  352.       TabOrder = 6
  353.       OnClick = BtnFONTClick
  354.       Glyph.Data = {
  355.         78010000424D7801000000000000760000002800000020000000100000000100
  356.         04000000000000000000120B0000120B00000000000000000000000000000000
  357.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  358.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
  359.         0003377777777777777308888888888888807F33333333333337088888888888
  360.         88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F
  361.         8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F
  362.         8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF
  363.         03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
  364.         03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
  365.         33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
  366.         33333337FFFF77333333333000000333333333377777733333330000}
  367.       NumGlyphs = 2
  368.     end
  369.     object BtnYAZ: TBitBtn
  370.       Left = 256
  371.       Top = 312
  372.       Width = 79
  373.       Height = 27
  374.       Hint = 'F5 Tu∩┐╜u'
  375.       Caption = 'Yaz∩┐╜c∩┐╜'
  376.       Font.Color = clNavy
  377.       Font.Height = -11
  378.       Font.Name = 'Arial'
  379.       Font.Style = [fsBold]
  380.       ParentFont = False
  381.       ParentShowHint = False
  382.       ShowHint = True
  383.       TabOrder = 5
  384.       OnClick = BtnYAZClick
  385.       Glyph.Data = {
  386.         78010000424D7801000000000000760000002800000020000000100000000100
  387.         04000000000000000000120B0000120B00000000000000000000000000000000
  388.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  389.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
  390.         0003377777777777777308888888888888807F33333333333337088888888888
  391.         88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F
  392.         8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F
  393.         8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF
  394.         03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
  395.         03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
  396.         33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
  397.         33333337FFFF77333333333000000333333333377777733333330000}
  398.       NumGlyphs = 2
  399.     end
  400.     object LabelA: TPanel
  401.       Left = 7
  402.       Top = 290
  403.       Width = 203
  404.       Height = 17
  405.       Alignment = taRightJustify
  406.       Caption = 'LabelA'
  407.       Color = clNavy
  408.       Font.Color = clWhite
  409.       Font.Height = -11
  410.       Font.Name = 'Arial'
  411.       Font.Style = [fsBold]
  412.       ParentFont = False
  413.       TabOrder = 14
  414.     end
  415.     object LabelB: TPanel
  416.       Left = 215
  417.       Top = 290
  418.       Width = 203
  419.       Height = 17
  420.       Alignment = taRightJustify
  421.       Caption = 'LabelB'
  422.       Color = clNavy
  423.       Font.Color = clWhite
  424.       Font.Height = -11
  425.       Font.Name = 'Arial'
  426.       Font.Style = [fsBold]
  427.       ParentFont = False
  428.       TabOrder = 15
  429.     end
  430.     object LabelK: TPanel
  431.       Left = 422
  432.       Top = 290
  433.       Width = 203
  434.       Height = 17
  435.       Alignment = taRightJustify
  436.       Caption = 'LabelK'
  437.       Color = clNavy
  438.       Font.Color = clWhite
  439.       Font.Height = -11
  440.       Font.Name = 'Arial'
  441.       Font.Style = [fsBold]
  442.       ParentFont = False
  443.       TabOrder = 16
  444.     end
  445.     object BitBtnARA: TBitBtn
  446.       Left = 505
  447.       Top = 312
  448.       Width = 57
  449.       Height = 27
  450.       Hint = 'F7 Tu∩┐╜u'
  451.       Caption = 'Bul'
  452.       Font.Color = clNavy
  453.       Font.Height = -11
  454.       Font.Name = 'Arial'
  455.       Font.Style = [fsBold]
  456.       ParentFont = False
  457.       ParentShowHint = False
  458.       ShowHint = True
  459.       TabOrder = 8
  460.       OnClick = BitBtnARAClick
  461.       Glyph.Data = {
  462.         76010000424D7601000000000000760000002800000020000000100000000100
  463.         04000000000000010000130B0000130B00000000000000000000000000000000
  464.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  465.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  466.         333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
  467.         300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
  468.         330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
  469.         333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
  470.         339977FF777777773377000BFB03333333337773FF733333333F333000333333
  471.         3300333777333333337733333333333333003333333333333377333333333333
  472.         333333333333333333FF33333333333330003333333333333777333333333333
  473.         3000333333333333377733333333333333333333333333333333}
  474.       NumGlyphs = 2
  475.     end
  476.     object BtnAKAPA: TBitBtn
  477.       Left = 256
  478.       Top = 344
  479.       Width = 162
  480.       Height = 27
  481.       Hint = 'F3 Tu∩┐╜u'
  482.       Caption = 'Topluca Hareket Kapatma'
  483.       Font.Color = clMaroon
  484.       Font.Height = -11
  485.       Font.Name = 'Arial'
  486.       Font.Style = [fsBold]
  487.       ParentFont = False
  488.       ParentShowHint = False
  489.       ShowHint = True
  490.       TabOrder = 12
  491.       OnClick = BtnAKAPAClick
  492.       NumGlyphs = 2
  493.     end
  494.     object BtnTEDM: TBitBtn
  495.       Left = 91
  496.       Top = 344
  497.       Width = 161
  498.       Height = 27
  499.       Caption = 'Tediye Makbuzunu G∩┐╜r'
  500.       Enabled = False
  501.       Font.Color = clMaroon
  502.       Font.Height = -11
  503.       Font.Name = 'Arial'
  504.       Font.Style = [fsBold]
  505.       ParentFont = False
  506.       TabOrder = 11
  507.       OnClick = BtnTEDMClick
  508.     end
  509.     object BtnALKAPA: TBitBtn
  510.       Left = 422
  511.       Top = 344
  512.       Width = 201
  513.       Height = 27
  514.       Caption = 'Fatura No Se∩┐╜erek Al∩┐╜∩┐╜ Kapat'
  515.       Font.Color = clMaroon
  516.       Font.Height = -11
  517.       Font.Name = 'Arial'
  518.       Font.Style = [fsBold]
  519.       ParentFont = False
  520.       TabOrder = 13
  521.       OnClick = BtnALKAPAClick
  522.     end
  523.   end
  524.   object Panel1: TPanel
  525.     Left = 0
  526.     Top = 0
  527.     Width = 635
  528.     Height = 33
  529.     Align = alTop
  530.     BevelInner = bvLowered
  531.     BorderWidth = 2
  532.     Color = 8388863
  533.     Ctl3D = False
  534.     Font.Color = clWhite
  535.     Font.Height = -12
  536.     Font.Name = 'Arial'
  537.     Font.Style = [fsBold]
  538.     ParentCtl3D = False
  539.     ParentFont = False
  540.     TabOrder = 1
  541.     object Label1: TLabel
  542.       Left = 6
  543.       Top = 9
  544.       Width = 91
  545.       Height = 14
  546.       Caption = 'CAR∩┐╜ HESAP ADI :'
  547.       Font.Color = clBlack
  548.       Font.Height = -11
  549.       Font.Name = 'Arial'
  550.       Font.Style = [fsBold]
  551.       ParentFont = False
  552.     end
  553.     object LabelCK: TLabel
  554.       Left = 100
  555.       Top = 8
  556.       Width = 21
  557.       Height = 15
  558.       Caption = '___'
  559.     end
  560.     object BitBtn2: TBitBtn
  561.       Left = 519
  562.       Top = 5
  563.       Width = 111
  564.       Height = 23
  565.       Caption = 'Veresiye G∩┐╜ncelle'
  566.       Font.Color = clNavy
  567.       Font.Height = -11
  568.       Font.Name = 'Arial'
  569.       Font.Style = [fsBold]
  570.       ParentFont = False
  571.       TabOrder = 0
  572.       OnClick = BitBtn2Click
  573.     end
  574.   end
  575.   object PanelILAC: TPanel
  576.     Left = 18
  577.     Top = 56
  578.     Width = 495
  579.     Height = 122
  580.     BevelInner = bvLowered
  581.     BevelWidth = 3
  582.     BorderWidth = 1
  583.     Color = 8388863
  584.     TabOrder = 2
  585.     Visible = False
  586.     OnClick = PanelILACExit
  587.     OnExit = PanelILACExit
  588.     OnMouseDown = PanelKAPAMouseDown
  589.     object LabelICER: TLabel
  590.       Left = 191
  591.       Top = 8
  592.       Width = 105
  593.       Height = 14
  594.       Alignment = taCenter
  595.       AutoSize = False
  596.       Caption = 'LabelICER'
  597.       Color = clBlack
  598.       FocusControl = DBGridICER
  599.       Font.Color = clWhite
  600.       Font.Height = -12
  601.       Font.Name = 'Arial'
  602.       Font.Style = [fsBold]
  603.       ParentColor = False
  604.       ParentFont = False
  605.     end
  606.     object DBGridICER: TDBGrid
  607.       Left = 7
  608.       Top = 24
  609.       Width = 481
  610.       Height = 91
  611.       Align = alBottom
  612.       Color = clGray
  613.       DataSource = SATIMSRC
  614.       Font.Color = clWhite
  615.       Font.Height = -11
  616.       Font.Name = 'Arial'
  617.       Font.Style = [fsBold]
  618.       Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
  619.       ParentFont = False
  620.       ReadOnly = True
  621.       TabOrder = 0
  622.       TitleFont.Color = clBlack
  623.       TitleFont.Height = -11
  624.       TitleFont.Name = 'Arial'
  625.       TitleFont.Style = [fsBold]
  626.     end
  627.   end
  628.   object PanelARA: TPanel
  629.     Left = 479
  630.     Top = 222
  631.     Width = 102
  632.     Height = 123
  633.     BevelInner = bvLowered
  634.     BorderWidth = 4
  635.     Color = 4489302
  636.     Font.Color = clNavy
  637.     Font.Height = -11
  638.     Font.Name = 'Arial'
  639.     Font.Style = [fsBold]
  640.     ParentFont = False
  641.     TabOrder = 5
  642.     Visible = False
  643.     OnMouseDown = PanelKAPAMouseDown
  644.     object Label10: TLabel
  645.       Left = 14
  646.       Top = 10
  647.       Width = 73
  648.       Height = 15
  649.       Caption = 'Aranan Tarih'
  650.       Font.Color = clWhite
  651.       Font.Height = -12
  652.       Font.Name = 'Arial'
  653.       Font.Style = [fsBold]
  654.       ParentFont = False
  655.     end
  656.     object BtnARATAM: TButton
  657.       Left = 17
  658.       Top = 57
  659.       Width = 64
  660.       Height = 23
  661.       Caption = '&Tamam'
  662.       TabOrder = 1
  663.       OnClick = BtnARATAMClick
  664.     end
  665.     object BtnARAVAZ: TButton
  666.       Left = 17
  667.       Top = 89
  668.       Width = 65
  669.       Height = 23
  670.       Caption = '&Vazge∩┐╜'
  671.       TabOrder = 2
  672.       OnClick = BtnARAVAZClick
  673.     end
  674.     object MaskEdit1: TMaskEdit
  675.       Left = 11
  676.       Top = 27
  677.       Width = 73
  678.       Height = 22
  679.       EditMask = '99/99/9999;1;_'
  680.       MaxLength = 10
  681.       TabOrder = 0
  682.       Text = '  .  .    '
  683.       OnExit = MaskEditBASExit
  684.     end
  685.   end
  686.   object PanelYAZ: TPanel
  687.     Left = 256
  688.     Top = 205
  689.     Width = 159
  690.     Height = 138
  691.     BevelInner = bvLowered
  692.     BorderWidth = 4
  693.     Color = 8388863
  694.     Font.Color = clNavy
  695.     Font.Height = -11
  696.     Font.Name = 'Arial'
  697.     Font.Style = [fsBold]
  698.     ParentFont = False
  699.     TabOrder = 4
  700.     Visible = False
  701.     OnMouseDown = PanelKAPAMouseDown
  702.     object Label7: TLabel
  703.       Left = 40
  704.       Top = 6
  705.       Width = 68
  706.       Height = 14
  707.       Caption = 'Tarih Aral∩┐╜∩┐╜∩┐╜'
  708.       Font.Color = clWhite
  709.       Font.Height = -12
  710.       Font.Name = 'Arial'
  711.       Font.Style = [fsBold]
  712.       ParentFont = False
  713.     end
  714.     object Label9: TLabel
  715.       Left = 11
  716.       Top = 53
  717.       Width = 54
  718.       Height = 28
  719.       Caption = 'Yaz∩┐╜c∩┐╜ Sol Marj (cm)'
  720.       Font.Color = clWhite
  721.       Font.Height = -11
  722.       Font.Name = 'Arial Tur'
  723.       Font.Style = [fsBold]
  724.       ParentFont = False
  725.       WordWrap = True
  726.     end
  727.     object BtnTAMY: TButton
  728.       Left = 8
  729.       Top = 107
  730.       Width = 65
  731.       Height = 23
  732.       Caption = '&Tamam'
  733.       TabOrder = 4
  734.       OnClick = BtnTAMYClick
  735.     end
  736.     object Button2: TButton
  737.       Left = 77
  738.       Top = 107
  739.       Width = 65
  740.       Height = 23
  741.       Caption = '&Vazge∩┐╜'
  742.       TabOrder = 5
  743.       OnClick = Button2Click
  744.     end
  745.     object MaskEditBAS: TMaskEdit
  746.       Left = 8
  747.       Top = 25
  748.       Width = 63
  749.       Height = 22
  750.       EditMask = '99/99/9999;1;_'
  751.       MaxLength = 10
  752.       TabOrder = 0
  753.       Text = '  .  .    '
  754.       OnExit = MaskEditBASExit
  755.     end
  756.     object MaskEditSON: TMaskEdit
  757.       Left = 78
  758.       Top = 25
  759.       Width = 65
  760.       Height = 22
  761.       EditMask = '99/99/9999;1;_'
  762.       MaxLength = 10
  763.       TabOrder = 1
  764.       Text = '  .  .    '
  765.       OnExit = MaskEditBASExit
  766.     end
  767.     object SpinEdit1: TSpinEdit
  768.       Left = 74
  769.       Top = 56
  770.       Width = 44
  771.       Height = 23
  772.       MaxLength = 25
  773.       MaxValue = 0
  774.       MinValue = 0
  775.       TabOrder = 2
  776.       Value = 0
  777.     end
  778.     object CheckICERIK: TCheckBox
  779.       Left = 14
  780.       Top = 86
  781.       Width = 113
  782.       Height = 17
  783.       Caption = '∩┐╜∩┐╜erik Yaz∩┐╜ls∩┐╜n'
  784.       Color = clSilver
  785.       ParentColor = False
  786.       TabOrder = 3
  787.     end
  788.   end
  789.   object PanelTed: TPanel
  790.     Left = 7
  791.     Top = 225
  792.     Width = 615
  793.     Height = 150
  794.     BevelInner = bvLowered
  795.     BorderWidth = 2
  796.     Color = 8388672
  797.     TabOrder = 7
  798.     Visible = False
  799.     OnClick = PanelTedClick
  800.     object Label11: TLabel
  801.       Left = 8
  802.       Top = 6
  803.       Width = 90
  804.       Height = 14
  805.       Caption = 'Tediye Makbuzu'
  806.       Font.Color = clWhite
  807.       Font.Height = -11
  808.       Font.Name = 'Arial'
  809.       Font.Style = [fsBold]
  810.       ParentFont = False
  811.     end
  812.     object DBMemoTED: TDBMemo
  813.       Left = 4
  814.       Top = 20
  815.       Width = 558
  816.       Height = 123
  817.       DataField = 'MAKBUZ'
  818.       DataSource = DS_TED
  819.       Font.Color = clBlack
  820.       Font.Height = -11
  821.       Font.Name = 'Courier New'
  822.       Font.Style = [fsBold]
  823.       ParentFont = False
  824.       ScrollBars = ssVertical
  825.       TabOrder = 0
  826.     end
  827.     object BtnTEDGIZ: TBitBtn
  828.       Left = 565
  829.       Top = 27
  830.       Width = 44
  831.       Height = 25
  832.       Caption = 'Gizle'
  833.       Font.Color = clNavy
  834.       Font.Height = -11
  835.       Font.Name = 'Arial'
  836.       Font.Style = [fsBold]
  837.       ParentFont = False
  838.       TabOrder = 1
  839.       OnClick = PanelTedClick
  840.     end
  841.     object BtnTEDSIL: TBitBtn
  842.       Left = 565
  843.       Top = 72
  844.       Width = 44
  845.       Height = 25
  846.       Caption = 'Ted.Sil'
  847.       Font.Color = clNavy
  848.       Font.Height = -11
  849.       Font.Name = 'Arial'
  850.       Font.Style = [fsBold]
  851.       ParentFont = False
  852.       TabOrder = 2
  853.       OnClick = BtnTEDSILClick
  854.     end
  855.   end
  856.   object PanelKAPA: TPanel
  857.     Left = 208
  858.     Top = 72
  859.     Width = 223
  860.     Height = 307
  861.     BevelInner = bvLowered
  862.     BorderWidth = 4
  863.     Color = 8404992
  864.     Font.Color = clNavy
  865.     Font.Height = -11
  866.     Font.Name = 'Arial'
  867.     Font.Style = [fsBold]
  868.     ParentFont = False
  869.     TabOrder = 6
  870.     Visible = False
  871.     OnMouseDown = PanelKAPAMouseDown
  872.     object Label12: TLabel
  873.       Left = 30
  874.       Top = 169
  875.       Width = 95
  876.       Height = 14
  877.       Caption = 'Son Durum Tarihi'
  878.       Font.Color = clWhite
  879.       Font.Height = -11
  880.       Font.Name = 'Arial'
  881.       Font.Style = [fsBold, fsUnderline]
  882.       ParentFont = False
  883.     end
  884.     object LabelTARAL: TLabel
  885.       Left = 6
  886.       Top = 6
  887.       Width = 211
  888.       Height = 15
  889.       Align = alTop
  890.       Alignment = taCenter
  891.       Caption = 'Vadesi'
  892.       Color = clBlue
  893.       Font.Color = clWhite
  894.       Font.Height = -12
  895.       Font.Name = 'Arial'
  896.       Font.Style = [fsBold]
  897.       ParentColor = False
  898.       ParentFont = False
  899.     end
  900.     object Label14: TLabel
  901.       Left = 142
  902.       Top = 196
  903.       Width = 62
  904.       Height = 14
  905.       Caption = 'Vade Tarihi'
  906.       Font.Color = clWhite
  907.       Font.Height = -11
  908.       Font.Name = 'Arial'
  909.       Font.Style = [fsBold]
  910.       ParentFont = False
  911.     end
  912.     object Label13: TLabel
  913.       Left = 35
  914.       Top = 100
  915.       Width = 134
  916.       Height = 15
  917.       Caption = 'Hareketlerini Topla ve'
  918.       Font.Color = clWhite
  919.       Font.Height = -12
  920.       Font.Name = 'Arial'
  921.       Font.Style = [fsBold]
  922.       ParentFont = False
  923.       WordWrap = True
  924.     end
  925.     object RadioGrKAP: TRadioGroup
  926.       Left = 7
  927.       Top = 50
  928.       Width = 207
  929.       Height = 48
  930.       Caption = 'Aral∩┐╜∩┐╜∩┐╜na ait A∩┐╜∩┐╜k (∩┐╜denmemi∩┐╜)'
  931.       Color = clSilver
  932.       Columns = 3
  933.       Font.Color = clNavy
  934.       Font.Height = -12
  935.       Font.Name = 'Arial'
  936.       Font.Style = [fsBold]
  937.       ItemIndex = 0
  938.       Items.Strings = (
  939.         'Al∩┐╜m'
  940.         'Alacak'
  941.         'Bor∩┐╜'
  942.         'Vrs.ye'
  943.         'Krm.Fat')
  944.       ParentColor = False
  945.       ParentFont = False
  946.       TabOrder = 0
  947.       OnClick = RadioGrKAPClick
  948.     end
  949.     object BtnTamKapa: TButton
  950.       Left = 30
  951.       Top = 275
  952.       Width = 65
  953.       Height = 23
  954.       Caption = '&Tamam'
  955.       TabOrder = 1
  956.       OnClick = BtnTamKapaClick
  957.     end
  958.     object BtnTamVaz: TButton
  959.       Left = 116
  960.       Top = 275
  961.       Width = 65
  962.       Height = 23
  963.       Caption = '&Vazge∩┐╜'
  964.       TabOrder = 2
  965.       OnClick = BtnTamVazClick
  966.     end
  967.     object MaskEditKI: TMaskEdit
  968.       Left = 41
  969.       Top = 23
  970.       Width = 63
  971.       Height = 22
  972.       EditMask = '99/99/9999;1;_'
  973.       MaxLength = 10
  974.       TabOrder = 3
  975.       Text = '  .  .    '
  976.       OnExit = MaskEditBASExit
  977.     end
  978.     object MaskEditKS: TMaskEdit
  979.       Left = 109
  980.       Top = 23
  981.       Width = 65
  982.       Height = 22
  983.       EditMask = '99/99/9999;1;_'
  984.       MaxLength = 10
  985.       TabOrder = 4
  986.       Text = '  .  .    '
  987.       OnExit = MaskEditBASExit
  988.     end
  989.     object MaskEditST: TMaskEdit
  990.       Left = 133
  991.       Top = 165
  992.       Width = 63
  993.       Height = 22
  994.       EditMask = '99/99/9999;1;_'
  995.       MaxLength = 10
  996.       TabOrder = 5
  997.       Text = '  .  .    '
  998.       OnExit = MaskEditBASExit
  999.     end
  1000.     object RadioGrTam: TRadioGroup
  1001.       Left = 7
  1002.       Top = 116
  1003.       Width = 207
  1004.       Height = 47
  1005.       Caption = 'Tamam Tu∩┐╜una Bast∩┐╜ktan Sonra'
  1006.       Color = clSilver
  1007.       ItemIndex = 0
  1008.       Items.Strings = (
  1009.         'Tutar∩┐╜ Cari Hesaba Otomatik Yaz'
  1010.         'Kapama, Sadece Tutar∩┐╜ G∩┐╜ster')
  1011.       ParentColor = False
  1012.       TabOrder = 6
  1013.       OnClick = RadioGrTamClick
  1014.     end
  1015.     object RadioGrOdA: TRadioGroup
  1016.       Left = 8
  1017.       Top = 189
  1018.       Width = 124
  1019.       Height = 47
  1020.       Caption = '∩┐╜deme Tipi'
  1021.       Color = clSilver
  1022.       Columns = 2
  1023.       ItemIndex = 0
  1024.       Items.Strings = (
  1025.         'Nakit'
  1026.         '∩┐╜ek'
  1027.         'Senet'
  1028.         'Di∩┐╜er')
  1029.       ParentColor = False
  1030.       TabOrder = 7
  1031.     end
  1032.     object MaskEditVADE: TMaskEdit
  1033.       Left = 141
  1034.       Top = 212
  1035.       Width = 63
  1036.       Height = 22
  1037.       EditMask = '99/99/9999;1;_'
  1038.       MaxLength = 10
  1039.       TabOrder = 8
  1040.       Text = '  .  .    '
  1041.       OnExit = MaskEditBASExit
  1042.     end
  1043.     object RadioGrORT: TRadioGroup
  1044.       Left = 10
  1045.       Top = 239
  1046.       Width = 204
  1047.       Height = 33
  1048.       Caption = 'Ortalama Vade Hesab∩┐╜'
  1049.       Color = clSilver
  1050.       Columns = 3
  1051.       ItemIndex = 0
  1052.       Items.Strings = (
  1053.         'Yok'
  1054.         'A∩┐╜∩┐╜rl∩┐╜kl∩┐╜'
  1055.         'Basit')
  1056.       ParentColor = False
  1057.       TabOrder = 9
  1058.     end
  1059.   end
  1060.   object PanelCARI: TPanel
  1061.     Left = 432
  1062.     Top = 197
  1063.     Width = 182
  1064.     Height = 147
  1065.     BevelInner = bvLowered
  1066.     BorderWidth = 4
  1067.     Enabled = False
  1068.     Color = 4194304
  1069.     Font.Color = clNavy
  1070.     Font.Height = -11
  1071.     Font.Name = 'Arial'
  1072.     Font.Style = [fsBold]
  1073.     ParentFont = False
  1074.     TabOrder = 3
  1075.     Visible = False
  1076.     OnMouseDown = PanelKAPAMouseDown
  1077.     object SpdBSONTAR: TSpeedButton
  1078.       Left = 88
  1079.       Top = 114
  1080.       Width = 21
  1081.       Height = 20
  1082.       Hint = 'Takvime Bak'
  1083.       Glyph.Data = {
  1084.         4E010000424D4E01000000000000760000002800000012000000120000000100
  1085.         040000000000D800000000000000000000000000000010000000000000000000
  1086.         BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
  1087.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  1088.         3333330000003333333333333333330000003338888888888888330000003304
  1089.         0404404040483300000033FFFFFFFFFFFF483300000033FFFFFFFFFFFF483300
  1090.         000033FF000F0007FF483300000033FFF0FF7F70FF483300000033FFF0FFFFF0
  1091.         FF483300000033FFF0FF0007FF483300000033FF00FF0FFFFF483300000033FF
  1092.         F0FF0000FF483300000033FFFFFFFFFFFF483300000033FFFFFFFFFFFF483300
  1093.         000033F7777777777F4833000000330000000000003333000000333333333333
  1094.         333333000000333333333333333333000000}
  1095.       ParentShowHint = False
  1096.       ShowHint = True
  1097.       Visible = False
  1098.       OnClick = SpdBSONTARClick
  1099.     end
  1100.     object Label8: TLabel
  1101.       Left = 15
  1102.       Top = 96
  1103.       Width = 95
  1104.       Height = 12
  1105.       Caption = 'Son Durum Tarihi'
  1106.       Font.Color = clWhite
  1107.       Font.Height = -11
  1108.       Font.Name = 'Arial'
  1109.       Font.Style = [fsBold]
  1110.       ParentFont = False
  1111.     end
  1112.     object RdGroupCARI: TRadioGroup
  1113.       Left = 11
  1114.       Top = 13
  1115.       Width = 97
  1116.       Height = 79
  1117.       Caption = 'CAR∩┐╜ ∩┐╜∩┐╜LEM'
  1118.       Color = clSilver
  1119.       ParentColor = False
  1120.       TabOrder = 0
  1121.       OnClick = RdGroupCARIClick
  1122.     end
  1123.     object DBEdSONTAR: TDBEdit
  1124.       Left = 14
  1125.       Top = 112
  1126.       Width = 69
  1127.       Height = 22
  1128.       AutoSelect = False
  1129.       DataField = 'SONTARIH'
  1130.       DataSource = CariHrkSRC
  1131.       MaxLength = 0
  1132.       TabOrder = 1
  1133.       Visible = False
  1134.     end
  1135.     object ButtonOk: TButton
  1136.       Left = 116
  1137.       Top = 17
  1138.       Width = 54
  1139.       Height = 27
  1140.       Caption = '&Tamam'
  1141.       TabOrder = 2
  1142.       OnClick = ButtonOkClick
  1143.     end
  1144.     object ButtonVgc: TButton
  1145.       Left = 116
  1146.       Top = 65
  1147.       Width = 54
  1148.       Height = 27
  1149.       Caption = '&Vazge∩┐╜'
  1150.       TabOrder = 3
  1151.       OnClick = ButtonVgcClick
  1152.     end
  1153.   end
  1154.   object CariHrkSRC: TDataSource
  1155.     DataSet = CariHrkTab
  1156.     OnDataChange = CariHrkSRCDataChange
  1157.     Left = 47
  1158.     Top = 109
  1159.   end
  1160.   object CariHrkTab: TTable
  1161.     BeforeInsert = CariHrkTabBeforeInsert
  1162.     AfterInsert = CariHrkTabAfterInsert
  1163.     BeforeEdit = CariHrkTabBeforeEdit
  1164.     BeforePost = CariHrkTabBeforePost
  1165.     AfterPost = CariHrkTabAfterPost
  1166.     AfterDelete = CariHrkTabAfterPost
  1167.     DatabaseName = 'ECZ'
  1168.     IndexName = 'CKODTAR'
  1169.     TableName = 'HAREKET.DB'
  1170.     Left = 20
  1171.     Top = 109
  1172.     object CariHrkTabCARIKOD: TStringField
  1173.       FieldName = 'CARIKOD'
  1174.       Visible = False
  1175.       Size = 11
  1176.     end
  1177.     object CariHrkTabTARIH: TDateField
  1178.       DisplayLabel = 'Tarih'
  1179.       DisplayWidth = 10
  1180.       FieldName = 'TARIH'
  1181.       Required = True
  1182.       OnGetText = CariHrkTabSONTARIHGetText
  1183.       OnSetText = CariHrkTabSONTARIHSetText
  1184.       DisplayFormat = 'dd.mm.yyyy'
  1185.       EditMask = '!99/99/9999;1;_'
  1186.     end
  1187.     object CariHrkTabTUR: TStringField
  1188.       DisplayLabel = '∩┐╜dm. Tipi '
  1189.       DisplayWidth = 8
  1190.       FieldName = 'TUR'
  1191.       Required = True
  1192.       OnGetText = CariHrkTabTURGetText
  1193.       Size = 1
  1194.     end
  1195.     object CariHrkTabALACAK: TCurrencyField
  1196.       DisplayLabel = 'Alacak'
  1197.       DisplayWidth = 14
  1198.       FieldName = 'ALACAK'
  1199.     end
  1200.     object CariHrkTabVADE: TDateField
  1201.       DisplayLabel = 'Vade'
  1202.       DisplayWidth = 10
  1203.       FieldName = 'VADE'
  1204.       OnGetText = CariHrkTabSONTARIHGetText
  1205.       OnSetText = CariHrkTabSONTARIHSetText
  1206.       DisplayFormat = 'dd.mm.yyyy'
  1207.       EditMask = '!99/99/9999;1;_'
  1208.     end
  1209.     object CariHrkTabBORC: TCurrencyField
  1210.       DisplayLabel = 'Bor∩┐╜'
  1211.       DisplayWidth = 14
  1212.       FieldName = 'BORC'
  1213.     end
  1214.     object CariHrkTabNIHAI: TSmallintField
  1215.       Alignment = taLeftJustify
  1216.       DisplayLabel = 'Cari Hareket'
  1217.       DisplayWidth = 13
  1218.       FieldName = 'NIHAI'
  1219.       OnGetText = CariHrkTabNIHAIGetText
  1220.     end
  1221.     object CariHrkTabBILGI: TStringField
  1222.       DisplayLabel = 'A∩┐╜∩┐╜klama'
  1223.       DisplayWidth = 36
  1224.       FieldName = 'BILGI'
  1225.       Size = 36
  1226.     end
  1227.     object CariHrkTabSONTARIH: TDateField
  1228.       DisplayLabel = 'Son Durum.Trh.'
  1229.       DisplayWidth = 10
  1230.       FieldName = 'SONTARIH'
  1231.       OnGetText = CariHrkTabSONTARIHGetText
  1232.       OnSetText = CariHrkTabSONTARIHSetText
  1233.       DisplayFormat = 'dd.mm.yyyy'
  1234.       EditMask = '!99/99/9999;1;_'
  1235.     end
  1236.     object CariHrkTabHAREKNO: TFloatField
  1237.       DisplayLabel = 'Hareket No'
  1238.       FieldName = 'HAREKNO'
  1239.       ReadOnly = True
  1240.     end
  1241.     object CariHrkTabALSAT: TStringField
  1242.       DisplayLabel = 'Oto. S∩┐╜n∩┐╜f'
  1243.       DisplayWidth = 14
  1244.       FieldName = 'ALSAT'
  1245.       ReadOnly = True
  1246.       OnGetText = CariHrkTabALSATGetText
  1247.       Size = 1
  1248.     end
  1249.     object CariHrkTabALSATNO: TFloatField
  1250.       DisplayLabel = 'Oto.S∩┐╜n∩┐╜f No'
  1251.       DisplayWidth = 8
  1252.       FieldName = 'ALSATNO'
  1253.       ReadOnly = True
  1254.     end
  1255.   end
  1256.   object HrkNoAl: TTable
  1257.     DatabaseName = 'ECZ'
  1258.     TableName = 'HRKNOAL.DB'
  1259.     Left = 544
  1260.     Top = 206
  1261.     object HrkNoAlHRKNO: TFloatField
  1262.       FieldName = 'HRKNO'
  1263.     end
  1264.   end
  1265.   object SATIMTAB: TTable
  1266.     DatabaseName = 'ECZ'
  1267.     MasterFields = 'ALSATNO'
  1268.     MasterSource = CariHrkSRC
  1269.     ReadOnly = True
  1270.     TableName = 'SATIS.DB'
  1271.     Left = 504
  1272.     Top = 176
  1273.     object SATIMTABSATISNO: TFloatField
  1274.       FieldName = 'SATISNO'
  1275.       Visible = False
  1276.     end
  1277.     object SATIMTABSIRANOURUN: TIntegerField
  1278.       DisplayLabel = 'S.No'
  1279.       DisplayWidth = 4
  1280.       FieldName = 'SIRANOURUN'
  1281.     end
  1282.     object SATIMTABILACNO: TIntegerField
  1283.       Alignment = taLeftJustify
  1284.       DisplayLabel = '∩┐╜r∩┐╜n Ad∩┐╜'
  1285.       DisplayWidth = 36
  1286.       FieldName = 'ILACNO'
  1287.       OnGetText = ALIMTABILACNOGetText
  1288.     end
  1289.     object SATIMTABFIYAT: TCurrencyField
  1290.       DisplayLabel = 'Fiyat∩┐╜'
  1291.       DisplayWidth = 13
  1292.       FieldName = 'FIYAT'
  1293.       DisplayFormat = '#,#'
  1294.     end
  1295.     object SATIMTABMIKTAR: TIntegerField
  1296.       DisplayLabel = 'Adet'
  1297.       DisplayWidth = 4
  1298.       FieldName = 'MIKTAR'
  1299.     end
  1300.     object SATIMTABKDV: TFloatField
  1301.       DisplayWidth = 4
  1302.       FieldName = 'KDV'
  1303.       DisplayFormat = '%0.#;'
  1304.     end
  1305.     object SATIMTABSATARIH: TDateTimeField
  1306.       DisplayLabel = 'Tarih'
  1307.       DisplayWidth = 8
  1308.       FieldName = 'SATARIH'
  1309.       DisplayFormat = 'dd.mm.yy'
  1310.     end
  1311.   end
  1312.   object ALIMTAB: TTable
  1313.     DatabaseName = 'ECZ'
  1314.     MasterFields = 'ALSATNO'
  1315.     MasterSource = CariHrkSRC
  1316.     ReadOnly = True
  1317.     TableName = 'ALIS3.DB'
  1318.     Left = 512
  1319.     Top = 208
  1320.     object ALIMTABALISNO: TFloatField
  1321.       FieldName = 'ALISNO'
  1322.       Visible = False
  1323.     end
  1324.     object ALIMTABSIRANOILAC: TIntegerField
  1325.       Alignment = taLeftJustify
  1326.       DisplayLabel = 'S.No'
  1327.       DisplayWidth = 4
  1328.       FieldName = 'SIRANOILAC'
  1329.     end
  1330.     object ALIMTABILACNO: TIntegerField
  1331.       Alignment = taLeftJustify
  1332.       DisplayLabel = '∩┐╜r∩┐╜n Ad∩┐╜'
  1333.       DisplayWidth = 36
  1334.       FieldName = 'ILACNO'
  1335.       OnGetText = ALIMTABILACNOGetText
  1336.     end
  1337.     object ALIMTABFIYAT: TCurrencyField
  1338.       DisplayLabel = 'Fiyat∩┐╜'
  1339.       DisplayWidth = 13
  1340.       FieldName = 'FIYAT'
  1341.       DisplayFormat = '#,#'
  1342.     end
  1343.     object ALIMTABMIKTAR: TIntegerField
  1344.       DisplayLabel = 'Adet'
  1345.       DisplayWidth = 4
  1346.       FieldName = 'MIKTAR'
  1347.     end
  1348.     object ALIMTABALISTARIH: TDateTimeField
  1349.       DisplayLabel = 'Tarih'
  1350.       DisplayWidth = 8
  1351.       FieldName = 'ALISTARIH'
  1352.       DisplayFormat = 'dd.mm.yy'
  1353.     end
  1354.     object ALIMTABKDV: TFloatField
  1355.       DisplayWidth = 3
  1356.       FieldName = 'KDV'
  1357.       DisplayFormat = '%0.#;'
  1358.     end
  1359.   end
  1360.   object SATIMSRC: TDataSource
  1361.     DataSet = SATIMTAB
  1362.     Left = 120
  1363.     Top = 248
  1364.   end
  1365.   object ALIMSRC: TDataSource
  1366.     DataSet = ALIMTAB
  1367.     Left = 480
  1368.     Top = 208
  1369.   end
  1370.   object ILACBAKT: TTable
  1371.     DatabaseName = 'ECZ'
  1372.     ReadOnly = True
  1373.     TableName = 'URUN.DB'
  1374.     Left = 536
  1375.     Top = 176
  1376.     object ILACBAKTILACNO: TIntegerField
  1377.       FieldName = 'ILACNO'
  1378.     end
  1379.     object ILACBAKTILACAD: TStringField
  1380.       FieldName = 'ILACAD'
  1381.       Required = True
  1382.       Size = 36
  1383.     end
  1384.   end
  1385.   object QICERIK: TQuery
  1386.     DatabaseName = 'ECZ'
  1387.     DataSource = CariHrkSRC
  1388.     Params.Data = {0100010007414C5341544E4F0006080000000000000000000100}
  1389.     SQL.Strings = (
  1390.       'SELECT'
  1391.       'RECETE.RKDEFTERNO,'
  1392.       'RECETE.HASTANO,'
  1393.       'RECETE.ALTARIH,'
  1394.       'RECETE.NET'
  1395.       'FROM'
  1396.       'RECETE'
  1397.       'WHERE FATNO=:ALSATNO'
  1398.       'ORDER BY RECETE.RKDEFTERNO')
  1399.     Left = 146
  1400.     Top = 252
  1401.     object QICERIKRKDEFTERNO: TStringField
  1402.       DisplayLabel = 'R.Kay.Def.No'
  1403.       FieldName = 'RKDEFTERNO'
  1404.       Size = 9
  1405.     end
  1406.     object QICERIKHASTANO: TIntegerField
  1407.       Alignment = taLeftJustify
  1408.       DisplayLabel = 'HASTA ADI SOYADI'
  1409.       DisplayWidth = 35
  1410.       FieldName = 'HASTANO'
  1411.       OnGetText = QICERIKHASTANOGetText
  1412.     end
  1413.     object QICERIKNET: TCurrencyField
  1414.       DisplayLabel = 'NET TUTAR'
  1415.       DisplayWidth = 18
  1416.       FieldName = 'NET'
  1417.     end
  1418.     object QICERIKALTARIH: TDateField
  1419.       DisplayLabel = 'Aln.Trh.'
  1420.       FieldName = 'ALTARIH'
  1421.     end
  1422.   end
  1423.   object FATICESRC: TDataSource
  1424.     DataSet = QICERIK
  1425.     Left = 138
  1426.     Top = 284
  1427.   end
  1428.   object HASTABAKT: TTable
  1429.     DatabaseName = 'ECZ'
  1430.     TableName = 'HASTA.DB'
  1431.     Left = 90
  1432.     Top = 252
  1433.     object HASTABAKTHASTANO: TIntegerField
  1434.       FieldName = 'HASTANO'
  1435.     end
  1436.     object HASTABAKTBORC: TCurrencyField
  1437.       FieldName = 'BORC'
  1438.     end
  1439.     object HASTABAKTALACAK: TCurrencyField
  1440.       FieldName = 'ALACAK'
  1441.     end
  1442.     object HASTABAKTHASTADI: TStringField
  1443.       FieldName = 'HASTADI'
  1444.       Size = 18
  1445.     end
  1446.     object HASTABAKTHASTASOYAD: TStringField
  1447.       FieldName = 'HASTASOYAD'
  1448.       Size = 18
  1449.     end
  1450.   end
  1451.   object krmBak: TTable
  1452.     DatabaseName = 'ECZ'
  1453.     TableName = 'KRMLAR.DB'
  1454.     Left = 16
  1455.     Top = 144
  1456.     object krmBakKOD: TStringField
  1457.       FieldName = 'KOD'
  1458.       Required = True
  1459.       Size = 11
  1460.     end
  1461.     object krmBakAD: TStringField
  1462.       FieldName = 'AD'
  1463.       Required = True
  1464.       Size = 36
  1465.     end
  1466.     object krmBakBORC: TCurrencyField
  1467.       FieldName = 'BORC'
  1468.     end
  1469.     object krmBakALACAK: TCurrencyField
  1470.       FieldName = 'ALACAK'
  1471.     end
  1472.   end
  1473.   object PrintDialog1: TPrintDialog
  1474.     Left = 464
  1475.     Top = 240
  1476.   end
  1477.   object FontDialog1: TFontDialog
  1478.     Font.Color = clBlack
  1479.     Font.Height = -11
  1480.     Font.Name = 'Courier New Tur'
  1481.     Font.Style = []
  1482.     Device = fdBoth
  1483.     MinFontSize = 0
  1484.     MaxFontSize = 0
  1485.     Options = [fdEffects, fdFixedPitchOnly]
  1486.     Left = 560
  1487.     Top = 280
  1488.   end
  1489.   object QueryTOP: TQuery
  1490.     AfterOpen = QueryTOPAfterOpen
  1491.     DatabaseName = 'ECZ'
  1492.     Params.Data = {0100010008636172696B6F647500010100000000}
  1493.     SQL.Strings = (
  1494.       'SELECT '
  1495.       'SUM(HAREKET.BORC),'
  1496.       'SUM(HAREKET.ALACAK)'
  1497.       'FROM HAREKET'
  1498.       'WHERE CARIKOD=:carikodu')
  1499.     Left = 16
  1500.     Top = 80
  1501.     object QueryTOPSUMofBORC: TCurrencyField
  1502.       FieldName = 'SUM of BORC'
  1503.     end
  1504.     object QueryTOPSUMofALACAK: TCurrencyField
  1505.       FieldName = 'SUM of ALACAK'
  1506.     end
  1507.   end
  1508.   object FontTab: TTable
  1509.     DatabaseName = 'ECZ'
  1510.     TableName = 'FONT.DB'
  1511.     Left = 528
  1512.     Top = 280
  1513.     object FontTabBIRIM: TStringField
  1514.       FieldName = 'BIRIM'
  1515.       Size = 9
  1516.     end
  1517.     object FontTabFONTADI: TStringField
  1518.       FieldName = 'FONTADI'
  1519.       Size = 35
  1520.     end
  1521.     object FontTabFONTSIZE: TSmallintField
  1522.       FieldName = 'FONTSIZE'
  1523.     end
  1524.     object FontTabCOLOR: TIntegerField
  1525.       FieldName = 'COLOR'
  1526.     end
  1527.     object FontTabSTYLE: TStringField
  1528.       FieldName = 'STYLE'
  1529.       Size = 1
  1530.     end
  1531.     object FontTabMARJIN: TSmallintField
  1532.       FieldName = 'MARJIN'
  1533.     end
  1534.   end
  1535.   object QKapat: TQuery
  1536.     DatabaseName = 'ECZ'
  1537.     Params.Data = {
  1538.       0100040008536F6E447572756D000904005A950A000000036B726D0001020030
  1539.       00000006426173547268000904005A950A00000006536F6E547268000904005A
  1540.       950A000000}
  1541.     SQL.Strings = (
  1542.       'UPDATE HAREKET'
  1543.       'SET NIHAI=1,SONTARIH=:SonDurum'
  1544.       'WHERE '
  1545.       '(CARIKOD=:krm'
  1546.       'AND ALSAT='#39'A'#39' '
  1547.       'AND TUR='#39'A'#39
  1548.       'AND VADE>=:BasTrh'
  1549.       'AND VADE<=:SonTrh)'
  1550.       'AND (NIHAI IS NULL OR NIHAI=0)')
  1551.     Left = 330
  1552.     Top = 316
  1553.   end
  1554.   object QAlimTop: TQuery
  1555.     DatabaseName = 'ECZ'
  1556.     Params.Data = {
  1557.       01000300036B726D000102003000000006426173547268000904005A950A0000
  1558.       0006536F6E547268000904005A950A000000}
  1559.     SQL.Strings = (
  1560.       'SELECT'
  1561.       'SUM(HAREKET.ALACAK),'
  1562.       'SUM(HAREKET.BORC),'
  1563.       'AVG(VADE) AS VADEORT,'
  1564.       'SUM((VADE-TARIH)* ALACAK) AS AGIRALA,'
  1565.       'SUM((VADE-TARIH)* BORC) AS AGIRBORC'
  1566.       'FROM HAREKET'
  1567.       'WHERE '
  1568.       '(CARIKOD=:krm'
  1569.       'AND ALSAT='#39'A'#39' '
  1570.       'AND TUR='#39'A'#39
  1571.       'AND VADE>=:BasTrh'
  1572.       'AND VADE<=:SonTrh)'
  1573.       'AND (NIHAI IS NULL OR NIHAI=0)')
  1574.     Left = 344
  1575.     Top = 81
  1576.     object QAlimTopSUMOFALACAK: TCurrencyField
  1577.       FieldName = 'SUM OF ALACAK'
  1578.     end
  1579.     object QAlimTopSUMOFBORC: TCurrencyField
  1580.       FieldName = 'SUM OF BORC'
  1581.     end
  1582.     object QAlimTopAGIRALA: TCurrencyField
  1583.       FieldName = 'AGIRALA'
  1584.     end
  1585.     object QAlimTopAGIRBORC: TCurrencyField
  1586.       FieldName = 'AGIRBORC'
  1587.     end
  1588.     object QAlimTopVADEORT: TDateField
  1589.       FieldName = 'VADEORT'
  1590.     end
  1591.   end
  1592.   object TediyeTab: TTable
  1593.     DatabaseName = 'ECZ'
  1594.     TableName = 'tediye.db'
  1595.     Left = 224
  1596.     Top = 312
  1597.     object TediyeTabHAREKETNO: TFloatField
  1598.       FieldName = 'HAREKETNO'
  1599.     end
  1600.     object TediyeTabMAKBUZ: TMemoField
  1601.       FieldName = 'MAKBUZ'
  1602.       BlobType = ftMemo
  1603.       Size = 5
  1604.     end
  1605.   end
  1606.   object DS_TED: TDataSource
  1607.     DataSet = TediyeTab
  1608.     Left = 280
  1609.     Top = 328
  1610.   end
  1611.   object prosesTab: TTable
  1612.     DatabaseName = 'ECZ'
  1613.     TableName = 'PROSES.DB'
  1614.     Left = 486
  1615.     Top = 2
  1616.     object prosesTabTARIH: TDateTimeField
  1617.       FieldName = 'TARIH'
  1618.     end
  1619.     object prosesTabACIKLA: TStringField
  1620.       FieldName = 'ACIKLA'
  1621.       Size = 36
  1622.     end
  1623.     object prosesTabISLETNO: TFloatField
  1624.       FieldName = 'ISLETNO'
  1625.     end
  1626.     object prosesTabTUTAR: TCurrencyField
  1627.       FieldName = 'TUTAR'
  1628.     end
  1629.     object prosesTabISLETIPI: TStringField
  1630.       FieldName = 'ISLETIPI'
  1631.       Size = 15
  1632.     end
  1633.   end
  1634. end
  1635.